﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit") <> "" Then

	adminIpCheck=Request.Form("adminIpCheck")
	adminTimeCheck=Request.Form("adminTimeCheck")
	adminUpload=Request.Form("adminUpload")
	adminUpdate=Request.Form("adminUpdate")
	adminSize=Request.Form("adminSize")
	adminArticle=forQuote(Request.Form("adminArticle"))
	if adminIpCheck<>"0" then adminIpCheck = 1
	if adminTimeCheck<>"0" then adminTimeCheck = 1
	if adminUpdate="" or IsNumeric(adminUpdate)=False then adminUpdate = 0
	if adminSize="" or IsNumeric(adminSize)=False then adminSize = 0
	if adminUpload<>"1" then adminUpload = 2
	' Dim sid_
	' sid_ = Request.Form("bbsSid")
	' If sid_ <> "" And ifLetter(sid_)=False Then Call Error("<card title='出错'><p>论坛会话标识无效！")
	' if len(Request.Form("numTitle"))<1 then
		' Call Error("<card title='出错'><p>请输入！")
	' end if
	'----------------------------------------------------------------
	'	生成admin.asp文件
	'----------------------------------------------------------------
	dim HU_Config,HU_File

	HU_File= "../../config/admin.asp"'生成bbs.asp文件路径

	HU_Config="<"&"%"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminUpdate="""&adminUpdate&""" '系统升级维护"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminIpCheck="""&adminIpCheck&""" '后台IP异常检测"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminTimeCheck="""&adminTimeCheck&""" '后台登录时间检测"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminUpload="""&adminUpload&""" '后台上传系统"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminArticle="""&adminArticle&""" '文章默认来源"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminSize="""&adminSize&""" '文件上传限制"
	HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
	Call savetofile(HU_Config,HU_File)
	Response.Write "<card id='card2' title='正在返回' ontimer='index.asp?sid="&sid&"'><timer value='10'/><p>"
	Response.Write "成功设置！正在返回..."
else%>
<card id="index" title="网站后台配置">
<p align="left">
系统维护:<input name="adminUpdate<%=time_r%>" value="<%=adminUpdate%>" size="3"/>(小时)<br/>
后台IP异常检测:<select name="adminIpCheck<%=time_r%>" value="<%=adminIpCheck%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
后台登录时间检测:<select name="adminTimeCheck<%=time_r%>" value="<%=adminTimeCheck%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
系统上传系统:<select name="adminUpload<%=time_r%>" value="<%=adminUpload%>">
<option value="1">无名上传类</option>
<option value="2">无惧上传类</option>
</select><br/>
文章默认来源:<input type="text" name="adminArticle<%=time_r%>" value="<%=adminArticle%>" maxlength="15"/><br/>
文件上传限制:<input type="text" name="adminSize<%=time_r%>" value="<%=adminSize%>" maxlength="5" size="3"/>(KB)<br/>
<anchor>保存配置
<go href="admin.asp?submit=true&amp;sid=<%=sid%>" method="post">
<postfield name="adminIpCheck" value="$(adminIpCheck<%=time_r%>)"/>
<postfield name="adminUpdate" value="$(adminUpdate<%=time_r%>)"/>
<postfield name="adminTimeCheck" value="$(adminTimeCheck<%=time_r%>)"/>
<postfield name="adminUpload" value="$(adminUpload<%=time_r%>)"/>
<postfield name="adminArticle" value="$(adminArticle<%=time_r%>)"/>
<postfield name="adminSize" value="$(adminSize<%=time_r%>)"/>
</go>
</anchor><br/>
温馨提示:<br/>
1、关闭后台检测会降低网站安全性，站长IP不稳定可考虑关闭<br/>
2、系统维护:大于0则表示网站进入维护，前台只显示维护信息
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last%>